#! /usr/bin/perl

use diagnostics;
use strict;

my $localfolder = './compressed/tar';
my $package     = './compressed/tar/a.tar';
my @result      = `tar xfv $package -C $localfolder`;
my @extractedfiles;
foreach my $extracted (@result) {
	chomp($extracted);
	push( @extractedfiles, $localfolder . "/" . $extracted );
}
print "@extractedfiles\n";
